object frmMain: TfrmMain Left = 307 Top = 106 BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp] AutoScroll = False Caption = 'InVircible / Win32' ClientHeight = 395 ClientWidth = 353 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = mnuMain Position = poScreenCenter OnActivate = FormShow OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object cbxDirectory: TComboBox Left = 104 Top = 26 Width = 209 Height = 21 Hint = 'Directory to start from' ItemHeight = 13 TabOrder = 2 OnExit = cbxDirectoryExit end object grpStatus: TGroupBox Left = 8 Top = 56 Width = 337 Height = 57 Caption = 'Status' TabOrder = 3 object lblCurDir: TLabel Left = 32 Top = 16 Width = 297 Height = 13 AutoSize = False Caption = 'lblCurDir' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblCurFile: TLabel Left = 32 Top = 32 Width = 297 Height = 13 AutoSize = False Caption = 'lblCurFile' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblDirLbl: TLabel Left = 8 Top = 16 Width = 19 Height = 13 Caption = 'Dir.:' end object lblFileLbl: TLabel Left = 8 Top = 32 Width = 20 Height = 13 Caption = 'File:' end end object grpReport: TGroupBox Left = 8 Top = 120 Width = 337 Height = 201 Caption = 'Report' TabOrder = 4 object stgFiles: TStringGrid Left = 16 Top = 24 Width = 305 Height = 161 Hint = 'Double/right click selected file for post-processing' ColCount = 3 DefaultColWidth = 90 DefaultRowHeight = 15 FixedCols = 0 RowCount = 2 GridLineWidth = 0 Options = [goFixedVertLine, goFixedHorzLine, goRowSelect] PopupMenu = mnuReport ScrollBars = ssVertical TabOrder = 0 OnDblClick = DeactivateClick OnMouseUp = GridMouseUp OnSelectCell = stgFilesSelectCell end end object radAllLocal: TRadioButton Left = 8 Top = 6 Width = 121 Height = 17 Hint = 'Scan all local hard drives' Caption = 'All &Local Hard Drives' Checked = True TabOrder = 0 TabStop = True OnClick = radAllLocalClick end object radDirectory: TRadioButton Left = 8 Top = 32 Width = 89 Height = 17 Hint = 'Start scanning from directory' Caption = 'From &Directory:' TabOrder = 1 OnClick = radAllLocalClick end object btnStart: TBitBtn Left = 8 Top = 336 Width = 75 Height = 25 Hint = 'Start scanning' Caption = '&Start' Default = True TabOrder = 5 OnClick = btnStartStopClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333 70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033 70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333 70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 end object btnPause: TBitBtn Left = 96 Top = 336 Width = 75 Height = 25 Hint = 'Pause scanning' Caption = '&Pause' Enabled = False TabOrder = 6 OnClick = btnPauseClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F333FF3FF337F3E0F330030033 70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033 70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033 70E337F33773773337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 end object btnOptions: TBitBtn Left = 184 Top = 336 Width = 75 Height = 25 Hint = 'Open options dialog' Caption = '&Options...' TabOrder = 7 OnClick = btnOptionsClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF57555553350000055555555775777775555550000} NumGlyphs = 2 end object btnHelp: TBitBtn Left = 272 Top = 336 Width = 75 Height = 25 Hint = 'Help me!' Caption = 'Help...' TabOrder = 8 OnClick = btnHelpClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB 3333333773FFFF77333333333FBFBF33333333333777773333330000} NumGlyphs = 2 end object btnStop: TBitBtn Left = 16 Top = 328 Width = 75 Height = 25 Hint = 'Stop scanning' Caption = '&Stop' TabOrder = 9 Visible = False OnClick = btnStartStopClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033 70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033 70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033 70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 end object barMain: TStatusBar Left = 0 Top = 376 Width = 353 Height = 19 Panels = <> SimplePanel = True end object btnDirectory: TBitBtn Left = 320 Top = 26 Width = 24 Height = 21 Hint = 'Browse for directory' TabOrder = 11 OnClick = btnDirectoryClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8 B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8 B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB 0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000 55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05 55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05 55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555 5555575FFF7555555555570000755555555555777755555555550000} NumGlyphs = 2 Spacing = 0 end object mnuMain: TMainMenu Left = 168 object mnuAction: TMenuItem Caption = '&Action!' Hint = 'Action menu' ShortCut = 0 object mnuStartStop: TMenuItem Caption = '&Start' Hint = 'Start/Stop direcotry scanning' ShortCut = 113 OnClick = btnStartStopClick end object mnuPause: TMenuItem Caption = 'P&ause' Enabled = False Hint = 'Pause scanning' ShortCut = 115 OnClick = btnPauseClick end object mnuPrint: TMenuItem Caption = '&Print report...' Hint = 'Print the report' ShortCut = 16464 OnClick = mnuPrintClick end object mnuPrintersetup: TMenuItem Caption = 'Printer &setup...' Hint = 'Setup the printer' ShortCut = 0 OnClick = mnuPrintersetupClick end object mnuOptions: TMenuItem Caption = '&Options...' Hint = 'Open options dialog' ShortCut = 16463 OnClick = btnOptionsClick end object mnuExclude: TMenuItem Caption = 'Exclude...' ShortCut = 16453 OnClick = mnuExcludeClick end object mnuN1: TMenuItem Caption = '-' ShortCut = 0 end object mnuExit: TMenuItem Caption = 'E&xit' Hint = 'Exit InVircible' ShortCut = 0 OnClick = mnuExitClick end end object mnuHelp: TMenuItem Caption = '&Help' Hint = 'Help menu' ShortCut = 0 object mnuTopics: TMenuItem Caption = '&Help Topics' Hint = 'Show help topics' ShortCut = 112 OnClick = btnHelpClick end object mnuN2: TMenuItem Caption = '-' ShortCut = 0 end object mnuAbout: TMenuItem Caption = '&About...' Hint = 'About InVircible' ShortCut = 0 OnClick = mnuAboutClick end end end object dlgPrint: TPrintDialog Left = 232 end object dlgPrinterSetup: TPrinterSetupDialog Left = 264 end object mnuReport: TPopupMenu Alignment = paCenter OnPopup = mnuReportPopup Left = 200 object mnuPopDeactivate: TMenuItem Caption = '&Deactivate' Default = True ShortCut = 0 OnClick = DeactivateClick end object mnuPopAdd: TMenuItem Caption = 'Add to &Exceptions' ShortCut = 0 object mnuPopAddDir: TMenuItem Caption = '&Directory' ShortCut = 0 OnClick = mnuPopAddClick end object mnuPopAddFilename: TMenuItem Caption = '&Filename' ShortCut = 0 OnClick = mnuPopAddClick end object mnuPopAddExtension: TMenuItem Caption = '&Extension' ShortCut = 0 OnClick = mnuPopAddClick end end end end